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oer ereee 7 ONE Been 1$-se0-1984 9530e 8s UTS KSUMGMASTERSCEDT SecSwFCOPLIN-BLIGS@” (1 
1 ZTITLE “EDTSWFCOPLIN = copy a Line’ 
Cae ee ial « *yee-een® * Copy a, inte: WECOPLIN.BLI Edit: JBS1007 
S 1 BEGIN . 


PASESESELSS EEE E SITS TTT TTT TTP TT Tec rr eee ccc citric it ii ricci ii iiiiiiiicy 
' 


J 

it COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ie ALL RIGHTS RESERVED. 

t 

is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY IN ACCORDANCE WITH THE TERM UCH LICENSE AND WITH THE 
ie USION OF THE ABOVE COPYRIGHT NOTICE, THiS SOFTUARE OR MANY. OTHE 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 


ie TRANSFERRED. 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eRPORAT ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIG!TAL. 


e@eeneeeeeeeeeeeneneneaenne 


i eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeereneeeneneneeeeeeeeerereneee 
' 


'e¢ 


: FACILITY: EDT == The DEC Standard Editor 
ABSTRACT: 


WIAA UII POPPI PINION 2 2 SS 


DWNAMAEWN $OODNAVNE WN (OO DNAUS WN OOONOU Wh 


Copy a line, optionally deleting it. 
ENVIRONMENT: Runs at any access mode - AST reentrant 
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' 
i 
i 
i 
i 
i 
9 i 
? AUTHOR: Bob Kushlis, CREATION DATE: October 16, 1978 
§ MODIFIED BY: 
4 i 1-001 - Original. DJS 23-Feb-1981. This module was created by 
45 i eutract tag routine EDTSSCPY tN iroe yoeue EDTWF. 
46 i 1-002 - Regularize headers. JBS T6-Mar-1 
47 i 1-003 = Save Line being copied since we hays indirect acc*ss 
48 i into the workfile enyeoty..5 ats 1883 ort 
49 i 1-004 = Make Line larger. 
50 5 i 1-005 = Change stack ot Lecat ten to ae storage. STS 05-Mar-1982 
51 5 i 1-006 - Give an error return if the nese storage is not ove! ante. JBS 09-Jun-1982 
26 ; 1-007 = Improve the appearance of the Listing. JBS 20-Jun-198 
54 5 


} 


d 5 ' 
EDTSwF COPLIN EDTSWFCOPLIN = ¢ a line 16-Se 4: VAX=11 ss-32 V *tF] 
VO4=000 Declarations 14-Sep- 1984 93: 8 93 DISK SK$V mse STER: cE Bf OSRCSuF.COPLIN. BLI; * 2s 
5 XSBTTL "Declarations' 
° TABLE OF CONTENTS: 


REQUIRE "EDTSRC:TRAROUNAM'; 


FORWARD ROUTINE 
EDTSSCPY_LN; 
! 


INCLUDE FILES: 


PAP AMIVIVIV 
WVrurn— 


(aD nek eb a a ae A wee 2 te i at 5 8 2 a de 8 ds a tt 


i REQUIRE "EDTSRC:EDTREQ': | 
1 | 
4 i MACROS: 
5 ! 
$ ; NONE 
; | 
Dees i EQUATED SYMBOLS: | 
beso 1 | NONE 
0651 ' | 
n638 | OWN STORAGE : 
54 i NONE | 
0655 i 
0656 i EXTERNAL REFERENCES: 
0657 i 
0658 : In the routine | 


SROOeT NED TSSE 
2. 
; 4 61 
; 38 $68 
; 94 664 
: 95 665 
: 3 Ose? 
: 3 $5 
: 100 0670 
eo 
: 198 bers 
> 104 0674 
: 105 0675 
> 106 0676 
s 107 067 
: 108 067 
> 109 067 
> 110 0680 
i BE 
: 118 peas 
: 116 84 
s 115 068s 
: 116 686 
: 117 0687 
; #118 68 
3 («119 68 
: 120 0690 
> 121 0691 
. § 069 
a 069 
; 126 0694 
7 55 
: 1 : 69 
> 128 69 
1% 8900 
; 1 O70) 
: 133 8508 
i dR 0705 
135 109 
: 4 i" 
: 139 709 
: 140 710 
i OR 
: 128 ab 
+ 146 714 
+ 145 0715 


wo 
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OPLIN=c¢ a line 15. 
YUN = copy a line 14 


ZSBTTL 'EDTSSCPY_LN = copy a Line’ 


GLOBAL ROUTINE EDTSSCPY_LN ( ! Copy a line 
DELETE ij delete after copying 


'e¢ 


FUNCTIONAL DESCRIPTION: 


Copy a line. The delete parameter indicates that the Line 
should be deleted after copying. 


i 

i 

i 

FORMAL PARAMETERS: 

DELETE 1 = delete after copying 
IMPLICIT INPUTS: 

i EDTS$A_CUR_BUF 

i EDTS$A_ALT BUF 

EDTSSA_WK_CN 

IMPLICIT OUTPUTS: 

EDTS$A_CUR_BUF 

ROUTINE VALUE: 

i 
i 
i 
i 
i 
i 
i 
ie 


= OK 
d = failed for lack of heap storage 
SIDE EFFECTS: 
NONE 


BEGIN 
EXTERNAL re Pog? 


EDTSS$ALO_H ' Allocate heap storage 
EDTSSDEA_ HEAP : NOVALUE ! Deallocate heap storage 
EDTSSDEL— CURLN NOVALUE, 
EDTSSINS_L NOVALUE, 
EDTSSRD S CURLIN : NOVALUE; 
EX areas 
EDTSSA_ cue _BUF : REF TBCB_BLOCK, ! Current text buffer control block 
EDTSSA_ ' Alternate text buffer control block 
EDTS$A_ uk TCH : REF LIN_BLOCK; ! Pointer to current Line 


CAL 
SAVE_TBCB, 
LINE, 
LINE_LEN; 


5 
ep-1984 02:04: VAX-11 Bliss-32 V4.0-7 
et 95:98:95 DISKSVMSMASTER: tt + sre WFCOPLIN.BLI; Pyse 


F R. 
EDTSWFCOPLIN EDTSWFCOPLIN = copy a Line 16-Sep 4 4: VAX=11 Bliss-32 V 4) 
aH *800 EDTSSCPY_LN = copy a line 14-Sep ats vi 6: 83 98 DISKSVMSMASTER: th OAC TUF COPLIN. BLI; — (3) | 
: 14 at ' since we do not have indirect access to the workfile with callable EDT 
: 148 af } we must copy out the Line we wish to copy before we get the next bucket. 
: 14 71 
; i f 9 IF ( NOT EDTSSALO_HEAP (ZREF (512), LINE)) THEN RETURN (0); 
: 4 7 LINE LEN = EDTSSALWKALN CLIN LENGTH]; | 
: 1 5 OF g EDT NEgtBy MEM ( INE ALE LEN, EDTSSA WKLLN CLIN_TEXT], .LINE); 
: 136 754 SAVE TBCB = .EDTSS 
: 155 0725 EDTSSA nit “ALT BUF; 
; 128 7 $ EDTSSR aD CUR 
: 15 7 EDTSSINS_L (LHe bi NE NE_LEN); | 
: 158 726 EDTSSDEA~ re ( Ref ( LINE); 
; 159 729 EDTSSA COR BUF = .SAVE e Tate: | 
3 i” Bf 9 EDTS $$RB. CURLN ();- 
i 16¢ Ore IF .DELETE THEN EDTSSDEL_CURLN (); 
> 164 0734 RETURN (1); | 
3; 165 0735 1 END; ! of routine EDTSS$CPY_LN | 
TITLE EDTSWFCOPLIN EDTSWFCOPLIN = copy a Line 
IDENT \V04-000\ | 
-EXTRN EDTSSALO_HEAP, EDTSSDEA_HEAP 
EXTRN EDTSS$DEL~CURLN, EDTSS$INS_L | 
EXTRN EDTSS$RD_CURLN, EDTSSA CURE _BuF 
EXTRN EDTSSA_ALT_BUF, EDTSS$A_WK“LN | 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


O1FC 00000 .ENTRY EDTSSCPY LN. save R2,R3,R4,R5,R6,R7_RB : 0661 
58 000000006 00 9€ 00002 MOVAB EDTS$$RD_TUR ; 
a7 000000006 00 3 90009 OVA EDTSSA. tur DUE, Re? 
04 AE SF 00013 PUSHAB LINE : 0720 
i ae 2 a : 
000000006 00 02 rB OO01F CALLS #2, EDTSSALO HEAP 
ce ae a0088 ROVE, COLSSA We LM, RO W722 
04 BE 07 A 36 28 00 3 MOVC LINE LEN 7 RO L : 0735 
5 67 00 00039 MOVL EDTS$SA_CUR_BUF, SAVE_TBCB > 0724 
67 000000006 00 dO 00 ¢ MOVL EDTSSA7ALT™ BUF EOYEsh2Eba ou : 0725 
68 00 FB 0004 CALLS #0, E EDTSSRO_¢ : 0726 
6 OD 00046 PUSHL LINE_LEN : 0727 
08 AE DD 0048 PUSHL LINE : 
000000006 00 ; 02 FB a CALLS é ‘ EDTSSINS_LN : cant 
06 AE © 0200 BF 3c 008 ROVZUL #519, 4(SP) | 
04 AE 9F 00058 FUSHAB 4(SP§ : | 
000000006 00 2 FB 0 3 CALLS #2, EDTSSDEA eh : 
D 6 MOVL  SAVE_TBCB EDT SA_ CUR_BUF : 07 9 
68 0 FB 0068 CALLS #0, EDTS$ RD. : 0730 
04 Ac €E9 00068 BLBC DELETE, 1 : 0732 


Ok ae 


; Routine Size: 125 bytes, 


0736 1 
0737 1 !<BLF/PAGE> 


teY t IN - copy a line 


9. Leeming 


DBDOowWDws 


3; Run Time: ie 
; Elapsed Time: 0:1 

3; Lines/CPU Min: +9 a” 
3; Lexemes/CPU-Min: 1159 
3; Memor ry Used: 75 pages | 
; Compilation Complete 


} 
H 5 | 
EDTSWFCOPLIN  EDTSWFCOPLIN = copy a Line 16-Sep-19 b: VAX=11 Bliss-32_V Pa 6 EDTS 
F400 EDTSSCPY_LN = copy a line 14-Sep-1 71382 93: 8% 93 DISKSVMSMASTER: tt + SRC SuFCOPLIN. BLI; + (4) | V04- 
; 169 7 1 END ! of module EDTSWFCOPLIN | $ 
199 0785 } of module E COPLI 
3 («171 740 0 ELUDOM | : 
Sais 
= 
3 | 
; PSECT SUMMARY | 
; Name Bytes Attributes : 1 
; -EDTSCODE 125 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) : 
; Library Statistics : 
SW eae Ce Ae Symbols -------- Pages Processing ; 
3 File Total Loaded Percent Mapped e ; 
: ~$2 SSDUA28: sheet. -SRCJEDT.L32;1 377 32 8 40 00:00.2 : 
> ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 : 
: COMMAND QUALIFIERS : 
; Beep eee ner FELD. INET EAL GPT IAL EE) SUOTRACEDACEAL 184 150307 COPL IN/ORJ9ORIS 107 COPL IN MSRCS$: WF COPLIN.BLI/UPDATE=(ENHS:WFCO ; 
Size: 125 code : 0 data bytes : 


me ee me ee a at ot ed ot od od = = = = od = = = I 
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